Option Explicit
Sub P_Sample007()
    Dim myName As String
    myName = ThisWorkbook.Path & "\" & "P_Test2.txt"    'Nɮ
    If Len(Dir(myName)) > 0 Then
        Kill myName
    End If
End Sub
